10 DIMG$(80),DA$(2,5):BK$="[164]":NC=76
20 A$(1)="[154]          [206]AME:[159]"
30 A$(2)="[154][211]TREET [193]DDRESS:[159]"
40 A$(3)="[154]          [195]ITY:[159]"
50 A$(4)="[154]         [211]TATE:[159]"
60 A$(5)="[154]       [218]IPCODE:[159]"
70 SP=7:PRINT"[147]"CHR$(142):GOSUB1210:LC=0:G=0
80 PRINT"[147]"
120 GOSUB280:POKE646,15:POKE198,.
122 UL$="[204]OWERCASE":IFSP=.THENUL$="[213]PPERCASE"
124 SP$="[211]INGLE-[211]PACE":IFG=1THENSP$="[196]OUBLE-[211]PACE"
130 PRINT"[159]            [204]ETTER  [210]IGHT"
135 PRINT"              [205]AIN [205]ENU"
140 PRINT"     [193][146].  [154][204]ETTER [195]ASE: [159]"UL$
150 PRINT"     [194][146].  [154][211]PACING: [159]"SP$
160 PRINT"     [195][146].  [154][211]ENDER'S [206]AME & [193]DDRESS"
180 PRINT"     [196][146].  [154][193]DDRESSEE'S [206]AME &[160][193]DDRESS"
210 PRINT"     [197][146].  [154][194]EGIN TYPING LETTER"
215 PRINT"     [198][146].  [154][209]UIT"
220 PRINT"            [195]HOOSE [193] - [198]:[146]            "
230 GETA$:IFA$=""THEN230
240 A=ASC(A$)-64:IFA<1ORA>9THEN230
250 ONAGOTO360,430,500,510,700,6000
260 RETURN
270 :
280 PRINT"[158]";
290 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
300 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
310 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
320 POKE2023,125:POKE56295,7
350 RETURN
360 SP=SP+7:IFSP=14THENSP=.
420 GOTO120
430 G=G+1:IFG=2THENG=.
480 GOTO120
500 WW$="        [211]ENDER'S [206]AME & [193]DDRESS":WH=1:GOTO515
510 WW$="     [193]DDRESSEE'S [206]AME & [193]DDRESS":WH=2
515 PRINT"[147]"WW$""
520 FORZ=1TO5:ONZGOSUB2000,2010,2020,2030,2040
530 DA$(WH,Z)=A$:NEXT
540 PRINT"[147]"WW$"":FORA=1TO5:PRINT""A"[157].[159]"DA$(WH,A):NEXT
550 PRINT"[197]NTER THE NUMBER NEXT TO THE ITEM YOU"
560 PRINT"WANT TO CHANGE, OR PRESS [[210][197][212][213][210][206]] IF"
570 PRINT"EVERYTHING IS [207][203]."
580 PRINT"-->"BK$"[157]";:POKE198,.
590 GETA$:IF(A$<"1"ORA$>"5")ANDA$<>CHR$(13)THEN590
600 IFA$=CHR$(13)THEN80
610 PRINTA$"":Z=VAL(A$):ONZGOSUB2000,2010,2020,2030,2040
620 DA$(WH,Z)=A$:GOTO540
700 PRINT"[129][147][212]ODAY'S DATE:[158]";:GOSUB60500:DT$=A$
720 GOTO800
800 PRINT"[147]"
810 PRINT"     [208]OSITION PAPER TO TOP OF SHEET.    "
820 PRINT"[[211][208][193][195][197]] TO CONTINUE"
822 PRINT"[[210][197][212][213][210][206]] FOR MAIN MENU."
824 GETA$:IFA$=""THEN830
826 IFA$=CHR$(13)THEN80
828 IFA$=" "THEN870
830 GOTO824
870 PRINT"[147][208]RESS [210][197][212][213][210][206][146] ALONE TO EXIT."
890 OPEN15,4,15:CLOSE15:IFST<>0THEN60600: REM NO PRINTER
892 OPEN4,4,SP:LC=.
900 FORT=1TO10:PRINT#4:NEXT:LC=LC+10
910 A$=DA$(1,2):GOSUB60000:PRINT#4,SPC(40)A$:LC=LC+1
920 IFG=1THEN PRINT#4:LC=LC+1
930 A$=DA$(1,3)+", "+DA$(1,4)+" "+DA$(1,5):GOSUB60000
940 PRINT#4,SPC(40)A$:LC=LC+1
950 IFG=1THEN PRINT#4:LC=LC+1
960 A$=DT$:GOSUB60000:PRINT#4,SPC(40)A$:LC=LC+1
970 FOR T=1TO4:PRINT#4:NEXT:LC=LC+1
980 A$=DA$(2,1):GOSUB60000:PRINT#4,A$:LC=LC+1
990 IF G=1THENPRINT#4:LC=LC+1
1000 A$=DA$(2,2):GOSUB60000:PRINT#4,A$:LC=LC+1
1010 IF G=1THENPRINT#4:LC=LC+1
1020 A$=DA$(2,3)+", "+DA$(2,4)+" "+DA$(2,5):GOSUB60000
1030 PRINT#4,A$:LC=LC+1
1040 FORT=1TO3:PRINT#4:NEXT:LC=LC+3
1050 A$="[196]EAR "+DA$(2,1)+",":GOSUB60000
1060 PRINT#4,A$:LC=LC+1
1070 FORT=1TO3:PRINT#4:NEXT:LC=LC+4
1080 PRINT"-->";
1090 A$="":GOSUB60500:GOSUB60000
1100 IFA$=""THEN1150
1110 PRINT#4,A$:LC=LC+1
1120 IFG=1THENPRINT#4:LC=LC+1
1130 IFLC=>56THENFORX=1TO18:PRINT#4:NEXT:LC=8
1140 GOTO1080
1150 PRINT#4:PRINT#4:PRINT#4
1160 A$="[211]INCERELY,":GOSUB60000
1170 PRINT#4,TAB(45)A$:A$=DA$(1,1):GOSUB60000
1180 PRINT#4:PRINT#4,TAB(45)A$
1190 PRINT#4:CLOSE 4
1200 GOTO80
1210 :
1230 REM *** TITLE PAGE ***
1240 :
1260 POKE53280,11:POKE53281,0:POKE646,7
1270 PRINT"    [146]        [146]      [146]      [146]      [146]     [223]"
1280 PRINT"    [146]        [146]      [146]      [146]      [146]      [223]"
1290 PRINT"    [146]      [146]       [146]      [146]     [146]     [146]    "
1300 PRINT"    [146]       [146]      [146]      [146]      [146]       [146][169]"
1310 PRINT"    [146]       [146]      [146]      [146]      [146]       [223]"
1320 PRINT"    [146]      [146]       [146]      [146]     [146]      [146][223]  [223]"
1330 PRINT"      [146]      [146]     [146]      [146]       [146]    [146] [223]  "
1340 PRINT"      [146]      [146]     [146]      [146]       [146]    [146]  [223] "
1350 PRINT"   [223][146]      [146]   [169]  [223][146]     [146]   [146]      [146]   [146]"
1360 PRINT"       [223][146]     [146]  [169] [146][169][223] [223][146]    [146]   [146]     [146]    [146]"
1370 PRINT"    [146]    [146]     [146]    [146]    [146]       [146]     [146]    [146]"
1380 PRINT"       [146][169]     [146]    [146]    [146]       [146]     [146]    [146]"
1390 PRINT"       [223][146]     [146]    [223][146]          [146]     [146]    [146]"
1400 PRINT"     [146][223]  [223][146]    [146]        [146]    [146]   [146]     [146]    [146]"
1410 PRINT"     [146] [223]  [146]    [146]  [223] [146]    [146]    [146]   [146]     [146]  "
1420 PRINT"     [146]  [223] [146]    [146]   [223]  [146][169] [146]    [146]   [146]     [146]   [209]"
1430 PRINT"      V2.5 1986 BY KENNY LAWSON "
1440 PRINT"            PRESS ANY KEY":POKE198,.:WAIT 198,1
1450 RETURN
2000 PRINTA$(1);:GOSUB60500:RETURN
2010 PRINTA$(2);:GOSUB60500:RETURN
2020 PRINTA$(3);:GOSUB60500:RETURN
2030 PRINTA$(4);:GOSUB60500:RETURN
2040 PRINTA$(5);:GOSUB60500:RETURN
6000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
6010 PRINT"[147]";:IFER<>63THENEND
6020 LOAD"HELLO CONNECT",8
60000 IF(SP)THENRETURN
60003 FORA=1TOLEN(A$):G$(A)=MID$(A$,A,1)
60010 IF(G$(A)<"[193]"ORG$(A)>"[218]")THEN60030
60020 G$(A)=CHR$(ASC(G$(A))-128)
60030 NEXT:A$=""
60040 FORB=1TOA-1:A$=A$+G$(B):NEXT:RETURN
60500 PRINTBK$;:FORA=1TONC:G$(A)=""
60510 GETA$:IFA$=""THEN60510
60512 IF(A$>="[193]"ANDA$<="[218]")ORA$="[160]"THEN60530
60513 IFA$=CHR$(13)THENPRINT"[157] ":GOTO60540
60516 IFA$=CHR$(20)ANDA>1THENA=A-1:PRINT"[157][157]  [157][157]"BK$;:G$(A)="":GOTO60510
60520 IFA$<" "ORA$>CHR$(127)THEN60510
60530 PRINT"[157]"A$;:POKE212,.:PRINTBK$;:G$(A)=A$:NEXT
60540 A$="":FORB=1TOA-1:A$=A$+G$(B):NEXT:RETURN
60600 REM NO PRINTER
60610 PRINT"[147]"SPC(10)"[206]O PRINTER [207]N-[204]INE..."
60620 FORDL=1TO3000:NEXT:GOTO120